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BEGIN 
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it COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ag ta 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bce ~ WITH THE 


ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
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® 
a 
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® 
ie TRANSFERRED. * 
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t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* CORPORATION. 

'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' 
FACILITY: F11IACP Structure Level 2 
ABSTRACT: 
i This module generates a window mapping the desired VBN from 
00 the supplied file header. 
Boe ENVIRONMENT : 
004 i STARLET operating system, including privileged system services 
Be? and internal exec routines. 
docs | i 
Oo4g 1 i 
‘8 Ones AUTHOR: Andrew C. Goldstein, CREATION DATE: 7-Dec-1976 14:38 
? Bey MODIFIED BY: 
§ 26 i v03-012 CDS0002 Christian D. Saether 31-July-1984 
i 37 Remove local declaration of get_map_pointer Linkage. 
5 p88 i v03-011 LMP0254 L. Mark Pilant, 25-Jun-1984 10:12 
$ 2$ i Don't clear the forward Link for cathedral windows. This 
05 prevents the ACP from ACCVIOing when remapping already 
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1$-56 -1984 01:20: VAX-11 BLliss- 
er8ep= 1382 93:88:88 «| bTSSum nastier 
existing cathedral windows. 


v03-010 ¢DS0001 Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


v03-009 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 
Remove the addressing mode module switch. 


v03-008 LMP0027 L. Mark Pilant, 18-May-1982 11:25 
Rearrange several instruction sequences to avoid possible 
page faults at an elevated IPL. 


v03-007 ACGO285 Andrew C. Goldstein, 12-Apr-1982 16:58 
Correct cathedral window logic for empty headers 


v03-006 LMP0016 L. Mark Pilant 25-Mar-1982 13:23 
Remove diddling of the COMPLETE bit in the window segments. 


v02-005 LMP0013 L. Mark Pilant, 14-Mar-1982 13:25 
Fix window building logic to correctly handle Cathedral 
windows as well as the garden variety windows. 


v02-004 ACG0229 Andrew C. Goldstein, 23-Dec-1981 21:13 
Move counting of window turn to MAPVBN 


vO2-003 LMP0003 L. Mark Pilant, 17-Nov-1981 14:35 
Added cathedral (segmented) window support. 


V02-002 ACG0167 Andrew C. Goldstein, 16-Apr-1980 19:28 
Previous revision history moved to F11B.REV 


LIBRARY ‘SYSS$LIBRARY: 


L18.L32'; 
REQUIRE "SRCS$:FCPDEF .B32 


' 
: Lock the code into the working set since this routine runs at raised IPL. 


LOCK _CODE; 
GLOBAL ROUTINE TURN_WINDOW (WINDOW, HEADER, DESIRED_VBN, START_VBN) : L_NORM = 


ee 

' 

: FUNCTIONAL DESCRIPTION: 

i This routine scans the map area of the supplied file header 

: and builds retrieval pointers in the window until 

: (1) the entire header has been scanned, or : 

(2) the first retrieval pointer in the window maps the desired VBN 
i 

i 


CALLING SEQUENCE: 
TURN_WINDOW (ARG1, ARG2, ARGS, ARG4) 


INPUT PARAMETERS: 


Pa 
JWITURN.B32;1 
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16-Sep-1984 01:20: VAX-11 Bliss-32 V4.0-742 Page 
1a-8ep-19 4 9:99 :3 DISKSVMSMASTER:CF11X.SRCJWITURN.832;1 . (1) 
ARG1: address of window block or 0 if to be created 
ARG2: address of file header 
ARGS: desired VBN 
ARGS: starting VBN of file header 


IMPLICIT INPUTS: 
CURRENT_RVN: RVN of current volume 


OUTPUT PARAMETERS: 
updated window 


IMPLICIT OUTPUTS: 
NONE 


wR 


—_>—> —) 5d 
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ROUTINE VALUE: 
address of created window 
or 1 if none created 


SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
WINDOW : REF BBLOCK, ! pointer to window 
HEADER : REF BBLOCK; !' pointer to file header 


GLOBAL REGISTER 
COUNT 6, ! retrieval pointer count 
LBN re ! retrieval pointer start LBN 
MAP_POINTER 8 : REF BBLOCK; ! pointer to scan header map area 

LABEL _ : 
WINDOW_INIT, ! window initialization logic | 
MAP_BUILD; ! Loop to build window map 


LOCAL 
WINDOW BUFFER : BBLOCK CMAX_WINDOW*6), ! buffer in which to build window 
POINTER_COUNT, ' count of pointers in window 
WINDOW SIZE, ! size of window in pointers 
BAS starting VBN in window 
VBN in Scanning window 
pointer to scan window 
previous header pointer 
address of newly allocated window 
number of block mapped by the window 
address of the primary window segment 


N 
POINTER : REF BBLOCK, 
POINTER : REF BBLOCK, 
W_ WINDOW : REF BBLOCK. 
INBOW_ COUNT, 


RIMARY_WINDOW : REF BBLOCK; 
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MACRO 
WINDOW_MAP 


BIND_ COMMON; 
EXTERNAL ROUTINE 
ALLOCATE 


(.WINDOW+WCBSC_MAP)Z; ‘start of window map area 
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: L_NORM; ! allocate system dynamic memory 
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EXTERNAL ROUTINE 
GET_MAP_POINTER : L_MAP_POINTER; ! get value of next header map pointer 


ere are two general cases that can occur upon entering the window turner: 


Ther 
1) a window previously exists, in which case things get a Little messy; or 
2) no window previously exists, in which case things are very simply. 


POINTER = WINDOW_BUFFER; 
DOW_COUNT = 0; 
£ 


0; 
= .HEADER + .HEADERCFH2SB_MPOFFSET] * 2; ! point to map area 


IF .WINDOW EQL 0 
THEN 


! Create a new window. All that is necessary is to initialize a few variables 
and pointers and then start reading the file header. 


I 
PRIMARY _WINDOW = NEW_WINDOW = 0; 


POINTER_COUNT = 0 
END 


2 
! Use an existing window. Several situation may occur in this case: 1) the 
WINDOW _INIT: BEGIN 
4 


BRIS SELESR OS SESELESEOR SISSIES 
= 
“ 
mm 


window must be turned to point to a different portion of the file; 2) the 
header contains pointers which may be added after truncating the existing 
window, this usually occurs_when a file is extended without causing a new 


RD ERDINDIN DIS st et nt nt tk kk tk 8 ak ot at ot ot ot 8 8 2 I ot ot 


SISAR 


file header to be created; 3) the desired VBN is less than the specifed 
starting VBN and the ster’ toe VBN is greater than 1, this occurs when a 
file is extended and a new file header had to be created; or 4) the window 
already maps a portion of the header and only the new pointers (which may 
include a partial aap pointer if two contiguous extents were collapsed into 
one map pointer in the 
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header). 


L STVBN} 

INDOWCWCBSW SIZE] - WCBSC_LENGTH) / 6, MAX_WINDOW); 
NDOW = .WINDOW; 

OW(LWCBSW_NMAP); 
UNT * 6, GINDOW_MAP, WINDOW_BUFFER); ! copy current 


POINTER_COUNT = . 
CHSMOVE (.POINTER 
VBN = .BASE_VBN; 


IF .START_VBN LEQU .VBN 


: Determine if the existing window may be truncated. 


ee ee ee ee Le) 
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BEGIN 
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H % 1219 4 INCR J FROM 1 TO .POINTER_COUNT 
; ? : 9 4 dO 
; § 1 ¢ = .VBN + .W_POINTERCWCBS$W_COUNT); ! VBN at ghe end of the pointer 
: 1 WINDOW COUNT = WINDOW COUNT * .W_POINTERCWCBSW_COUNTJ; 
: Se, : 
1224 POINTER W POINTER + 
3 5 1225 IF_.START_VBN EQL .VBN 
3 1 § THEN 
; 1 6 BEGIN 
3 1 3 6 POINTER_COUNT = .J; ' note where window truncated 
3 9 1 g LEAVE WINDOW_INIT; 
; 24 1250 END; 
; 26 1231 4 END; 
3 re : § 2 NOT .WINDOWCWCBSV_CATHEDRAL] 
3 ée : : THEN 
: 246 1 § ! Either the window cannot be truncated or the header maps before the beginning 
; 24 1 : of the existing window. In the latter case if cathedral windows are not in 
; 268 1238 ! use the window may be discarded; if cathedral windows are in use then it is 
3 r4 : io } possible that a beginning portion of the header may be discarded. 
te +) 1241 4 BEGIN 
; 26 1 2g 4 IF .WINDOWCWCBSV_CATHEDRAL] 
; 5 1245 4 THEN 
; 254 1244 5 BEGIN 
; 255 1245 5 IF .BASE_VBN EQL .START_VBN 
; 256 12466 5 THEN 
3 gor 1247 6 BEGIN 
; 258 1248 6 POINTER_COUNT = 0; 
: 259 1249 6 LEAVE WINDOW_INIT; 
; 260 1250 5 END; 
: 261 \$2) 5 IF 
; $06 1 26 6 BEGIN 
; 12535 6 VBN = .START_VBN; 
; +e) 1$28 ° Va .MAP_POINTER GEQA .HEADER + (.HEADERCFH2$B_MPOFFSET] + .HEADERCFH2$B_MAP_INUSEJ) * 2 
: 266 1256 7 BEGIN 
; 67 1257 7 M_POINTER = .MAP_POINTER; 
; 268 1258 7 GET_MAP_POINTER 7); 
; 269 1259 7 F [BASE _VBN GEQ .VBN 
; 270 1260 7 AND .BASE_VBN LSS .VBN + .COUNT 
; eri 1261 7 THEN 
cx er 1566 4 N : 
3 7 126 MAP_POINTER = .M_POINTER; ' back up the header pointer 
: 274 +43 POINTER_COUNT = 0; 
; 275 1265 LEAVE WINDOW_INIT; 
; 6 1 68 END; 
.. ar 1267 7 VBN = .VBN + .COUNT; 
; 278 1 7 END 
: 279 1 END 
; 14 : — BUG_CHECK (WCBFCBMNG, FATAL, ‘WCB/FCB correspondence broken'); 
; B: 1 4 ELSE 
3; @ 1 BEGIN 
; 284 1 IF .VBN EQLU .BASE_VBN 
; «285 1 AND .DESIRED_VBN LSSU .START_VBN 
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AND .START VBN GTRU 1 


THEN RETURR 1; ! note window already best fit 
' The header maps before the gn window and cathedral windows are not in 
e 


42 ° 
RCJWITURN.B32;1.° (1) 


90 ! use, or a window truncation was attempted and starting VBN of the FCB was not 
4! ! found in the window. In either case a new window must be formed. 
9 
94 POINTER_COUNT = 0; 
95 WINDOW COUNT = 0; 
96 BASE _VBN = .START_VBN; 
9 W POINTER = WINDO@_BUFFER; 
98 END; 
END; 
END; ! end of block WINDOW_INIT 


! The window is now suitably initialized. Set up necessary pointers. | 
Now scan the map area, extracting retrieval pointers. | 
; | 
MAP_BUILD: BEGIN 

UNTIL .MAP_POINTER GEQA .HEADER + (.HEADERCFH2$B_MPOFFSET] + .HEADERCFH2$B_MAP_INUSEJ) * 2 
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99 
00 
a 
08 
04 
05 
06 
07 
08 
09 9S BEGIN 
10 00 
1 3 GET_MAP_POINTER (); 
ig 0 ! If the oq teeing window's first map pointer is part of a set needed to map 
$e 304 ' a map pointer from the header (this ony occurs if the map pointer from the 
15 305 ! file header maps more than 65535 blocks), it is necessary to adjust the | 
319 $09 : block count and LBN returned from the header. 
18 308 
319 309 IF .M_POINTER NEQ 0 
320 319 THEN 
$5) 11 BEGIN 
$¢ Hs COUNT = .COUNT - (.BASE_VBN - .VBN); 
2 31 LBN = .LBN + (.BASE_VBN - .VBN); 
24 314 M_POINTER = 0; ! only needed once 
$? $12 ERD; 
$$ 317 ! Build new retrieval pointers, using as many as needed to run out the 
328 18 ' count. If the window is full, and sognentes windows are not allowed 
$3 333 ! shuffle the entries up by one. If this would cause the pointer mapping 
20 ! the desired VBN to fall off the top, we are done. If segmented windows 
31 1 ! are allowed, write out the current segment, allocate room for the next 
¢ ¢ ' segment, reset the critical counts and pointers, and continue on my | 
i merry way. 
2 5 
$ IF .COUNT NEQ 0 
¢ TH 
3 $ WHILE 1 DO 
re ? IF .POINTER_COUNT GEQU .WINDOW_SIZE 
42 3) BEGIN 
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: Finish up the current segment and create another. 
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BEGIN 
CLEANUP_FLAGSCCLF_INCOMPL ET Ee] = 1; 

E_VBN + .WINDOW_BUF FERCW cBiy. COUNT] GTRU .DESIRED_VBN 
THEN LEAVE MAP_BUILD; 


POINTER _COUNT = -POINTER COUNT 

BASE _VBN = .BASE_V .GINDOW Bur feRCWcBSw. COUNT]; 

CHSROVE f. “POINTER. Coun 6 WINDOW _BUFFER+6, “WINDOW. BUFFER); 
W POINTER = .W_POINT é; 


BEGI 
LOCAL TEMP_L : REF BBLOCK; ! addr of temp window Link 
og Tt oynpow EQL 0 


BEGIN 

PRIMARY_WINDOW = NEW WINDOW = ALLOCATE CCMAXU ( sPoieren COUNT, MIN WINDOW) ) 
* 6 + WCBSC C_LENGTH, wtB_T TYPE); 

IF .NEW_WINDOW EQL 0 

THEN 


BEGIN 
CLEANUP_FLAGSCCLF_INCOMPLETE) = 
sue 0; 


END; 
IF .NEW WINDOWCWCBSL_LINK] NEQ 0 
THEN TE TEMP_LINK = .NEQ_WINDOWCWCBSL_LINK] 


SIZE = MAX_WINDOW; 
OV rik = ALLOCATE (.WINDOW_SIZE * 6 + WCBSC_LENGTH, WCB_TYPE); 


WIND 
TEMP_L 
if ,VeRP LINK EQ. 0 


“BEGIN 
CLEANUP Si her INCOMPLETE) = 
Ot MAP_ 


END; 
SET_IPL (IPLS$_SYNCH); 
Copy the needed information from the previous window segment. 


TEMP_LINK(WCBSL_PID) = NEW wl NDOWLWCBSL PID); 
TEMP LINK UCBSL “ORGUCB) = .REW W nowt WCB wcBsi ngheuce): 
WAC NEW ournpoy 


NEW Oi Nbowt uc ucesL AS 
CC Rew WINDOWCWCBSB pai | 
TERPILINKCWCBSLCAVT) = .NEW_WIRDOUCUCBSL_RVT):; | 
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NEW_WINDOWCWCBSL_LINK) = .TE 
NEW-WINDOWLWCBSV~ CATHEDRAL J 
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wee WINDOW WCBSwW a = POINTER COUNT: 

CHSROVE. « POINTER_COUN NT#6, BINOOK, ae -NEW_WINDOW+WCBSC_MAP) ; 
New gy NDOW = ,NEW-WINDOWLWCB 

-BASE che) 2 WINDOW "COUNT; 


r 
WINDOWCWCBSL “STV ,BASE _VBN; 
NEW =WINDOY ucBSv- Lt A es ; 


sete (0); 
POINTER : ee 1 BUFFER; 
POINTER 
WINDOW_ COUNT. 
END; 
END; 
Finally build the pointer and count it. 
W POINTERCWCBSW_ COUNT) = MINU (.COUNT, 65535 
WIND COUNT = “WIND OW COUNT + 3 OPOINTERCUCBSU_ COUNT): 
W_POINTER Bst LBM 
(9 POIN TERCWCBSC tan) <b 83 = .CURRENT_RVN; 
wW_POINTER = INTER + 
POINTER COUNT 3 5, gpONTER_ COUNT + 1; 


tBUNT . COUNT - MINU (.COUNT, 65535); 
i: .COUNT EQL 0 THEN EXITLOOP: 


END; ! end of header scan loop 
END; ! end of block MAP_BUILD 


! Having built a new window in the buffer, update the real one. Then interlock 
the system data base and copy the buffer into the window. 
IF .NEW_WINDOW EQL 0 
THEN 
BEGIN 
IF .WINDOW EQL 0 
THEN 


BEGIN 

PRIMARY _WINDOW = NEW_WINDOW = ALLOCATE (CRAY (POINTER es a WINDOW) ) 
* 6 + WCBSC LENGTH, TYPE); 

IF _ .NEW WINDOW EQL 0 

THEN 


BEGIN 
CLEANUP FLAGSCCLF_INCOMPLETE) = 
RETURN 0; 


ND; 
NEW_WINDOWCWCBSV_CATHEDRAL) = 


E 
EL LSE NEW_WINDOW = .WINDOW: 
SET_IPL (IPL$_SYN 
NEW" WINDOWCLWCBSW NNMAP) = ,POINTER_COUNT; 


| 
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DISKSVMSMASTER:CF11X.SRCJWITURN.B32; 1 (1) | 
: 457 1447 2 NEW WINDOWCWCBSL_STVBN) = .BASE_VBN; | 
; 458 1908 CHSMOVE (,POINTER_COUNT*6, WINDOW BUFFER, .NEW_WINDOW+WCBSC_MAP) ; 
; 459 144 SET_IPL (6); ! unlock the data base 
; 460 1450 | 
: 461 1451 IF .WINDOW EQL 0 
: 46 14 : THEN RETURN .PRIMARY_WINDOW | 
; 463 1493 ELSE RETURN i; 
oO | 
; 465 1455 1 END; ! end of routine TURN_WINDOW rn 
| FA 
TITLE WITURN FA 
IDENT \V04-000\ oa 
-EXTRN ALLOCATE, GET_MAP_POINTER FA 
“EXTRN BUG$_WCBFCBMNG . 
«PSECT $LOCKEDC1$,NOWRT,2 aA 
OBFC 00000 -ENTRY TURN WINDOW, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 1090 or 
5E FEOS CE 9E 0000 MOVAB =508(SP), SP : Ll 
14 AE 1¢ AE 9E 0000 MOVAB WINDOW BUFFER, W_POINTER + 1171 
OC AE 7C 0000C CLRQ MM POINTER + 1174 
51 08 ac 00 90008 MOVL HEADER, R1 : 1175 
50 01 Al 9A 0013 MOVZBL 1( : 
58 6140 3€ 0001 MOVAW (R1)CROJ, MAP_POINTER : 
56 04 ac 00 0001B MOVL WINDOW, R6 : 1177 
OE 12 O001F BNEQ : 
5B 10 AC 00 00021 MOVL START_VBN, BASE_VBN + 1185 
08 AE 50 8F 9A 00025 MOVZ2BL #80, QINDOW SIZE : 1186 
6— 7C 4 A CLRQ PRIMARY_WINDOW : 1187 
00B2 31 0002C BRW : 1188 
58 3¢ A6 pO OO2F 1$: MOVL  44(R6), BASE_VBN : 1205 
50 8 Ab s 0033 MOVZ2WL 8(R6), RO : 1206 
50 30 C2 00037 UBL 48, RO ; 
50 06 C6 0003A DIVL2 #6, RO : 
00000050 =F 50 D1 0003p CMPL RO, #80 : 
4 18 00044 BLEQU 2$ : 
50 50 8F 9A 00046 MOVZBL #80, RO : 
08 AE 0 DO 0004A 2S: MOVL RO, WINDOW SIZE : 
04 AE 56 b9 004 MOVL 6, NEW WINDOW : 1207 
6 56 p 005 MOVL  R6, PRIMARY WINDOW : 
59 16 Ag 909 MOVZ2WL 22(R6), POIRTER COUNT : 1208 
57 59 D MOVL. POINTER_COUNT, R : 1209 
50 57 06 s 0005¢ BULL #6, : 
1c AE 30 Ab 8 0060 MOVC3 RO, 48(R6), WINDOW_BUFFER ; 
18 AE 5B OO 0 66 MOVL BASE_VBN, VBN > 1210 
1 AE 10 ac pI 6A CMPL SIART VEN, VBN 3 1212 
gp 8 O0¢r BLEQU 5$ : 
0 D4 9 1 ae > 1219 
20 11 i BRB 4$ : 
51 14 bf 3¢ 75 38: MOVZWL a@W_POINTER, R1 : 1222 
18 AE 1 ¢ 79 ADDL2 R17, V ; 
51 14 : ¢ 70 MOVZWL @W_POINTER, R1 > 1223 
10 AE C0 0081 ADDL2 R17 WINDOW COUNT : 
14 AE 6 CO 00085 ADDL2 #6, W_POINTER + 1224 


ee 1 
| 
| 


K 12 
WITURN 16-Sep- VAX=11 Bliss-32 V4.0-742 ge 10 
¥Ou-000 1 =See- 138 9}: $8: 36 DISKSVMSMASTER tr F11X.SRCJWITURN.B32; . (1) 
18 «AE 10 A D4 089 CMPL § START_VBN, VBN : 1225 
0 BNEQ : 
59 D MOVL POINTER_COUNT + 1228 
A 1 9 BRB ifs + 1229 
o¢ 50 7s 95 4$ AOBLEQ + 1219 
0B Ab 6 E 99 BBS #6, 14 ab), 13$ t 123 
4E 0B Ab E 5$ BBC #6, 11(R6). 118 + 126 
10 AC 8 D4 OA CPL ASE_VBN, START_VBN + 126 
18 AE 10 AC 06 50A9 MOVL = START veN VBN + 1253 
51 08 Ac OOAE 6$: MOVL H ‘ + 1254 
30 or Al 9A 008 MOVZBL 1(R ; 
A Al 9a 0008 WOVZBL sethiS ; 
50 5 £0 OOBA ADDL2  R2, RO : 
50 6140 3€ 000BD MOVAW  (RI)CRO : 
50 58 D1 000C1 MPL  MAP_ SRO ATER” RO ; 
é 1E 00064 BGEGU ; 
OC AE 8 p 0006 MOVL § MAP_POINTER, M_POINTER + 1257 
00006 OOCA BSBW §GET"MAP_ POINTER + 1258 
18 AE 5B 01 000CD CMPL BASE VBR, VBN : 1259 
12 19 00001 BLSS ; 
50 56 18 AE C1 00003 ADDL3. VBN COUNT RO + 1260 
50 5B D1 000D8 CMPL _ BASE_VBN, RO ; 
08 18 000DB BGEO 8s ; 
58 0c AE 00 000DD MOVL POINTER MAP _POINTER + 1263 
59 D4 O00E1 7$: CLRL POINTER. COUN + 1264 
30 11 O00E3 BRB + 1265 
18 AE 56 CO OOOES 8$: ADDL2 COUNT, VBN > 1267 
C3 11 000E9 BRB 6$ + 1254 
FEFF OOOEB 9S: BUGW : 1270 
0000* OO00ED «WORD  <BUG$_WCBFCBMNG! 4> : 
24 11 OOOEF 10$: BRB 13$ + 1242 
58 18 AE D1 000F1 11$:  CMPL VBN, BASE_VBN + 1274 
10 12 000F5 BNEQ 12$ ; 
10 AC OC AC 01 000F7 CMPL  DESIRED_VBN, START_VBN + 1275 
09 1€ OOOFC BGEQU 1 ; 
01 10 aC D1 OO0rE CMPL § START_VBN, #1 : 1276 
1B 0010 BLEGU 12$ ; 
0222 31 00104 BRW 3 : 
9 D4 00107 12$ CLRL POINTER COUNT + 1284 
10 AE D4 0109 CLRL WINDOW OUNT > 1285 
5B 10 aC DO 0010¢ MOVL START TEN : 1286 
146 AE 1¢ AE 4 00119 MOVAB WINDO og “BUFFER, EY VPOINTER ; 1287 
21 8 AC p O14 13$: OVL HEADER : 1297 | 
0 1 Al 9A 00119 MOVZBL 1(R1) “ao. ; 
3 A Al 9A 0011D MOVZBL 58(R1S, R2 ; 
5 5 g0 0121 ADDL2 R2, RO : 
50 6140 3€ 00124 MOVAW (RI)CRO ; 
50 D1 oi 8 CMPL  MAP_PO Beaten RO : 
1F 00128 BLSSU _-14$7 : 
1 F 3! 1 BRW 27$ F 
0006 180 148: BSBW  GET_MAP_POINTER : 1301, 
Oc AE b 1 TSTL POINTER : 1309 
E 1 BEQL 15% : 
50 18 AE C3 001 SUBL3 ®BASE_VBN, VBN, RO : 1312 
36 ¢ 130 ADDL RO, tounf ; 
€2 00140 SUBL2 RO, LBN > 1313 


12 
WITURN 16- $ep-1984 01: VAX-11 Bliss-32 V4.0-742 e 11. 
VO4~000 aR aets ak) Se oe oh at oe 
OC AE D4 00143 CLRL § M_POINTER 3 1314) 
5 D3 146 15$: st ¢ NT ; 1326 
08 AE 53 pi 14a 16$: CPL POINTER_COUNT, WINDOW_SIZE + 1330. 
50 04 aC D0 001 5 MOVL WINDOW, RO ; 1333) 
30 1 154 BEQL 188 ; | 
2B 0B Ad 06 ot 6 BBS #6, 11(RO), 18$ ; 
01 AA 4 158 BISB2 #4. 1(BASE + 1336) 
50 1¢ AE ¢ 015F MOVZWL WINDOW BUFF R, RO : 1337 
50 38 CO 00163 ADDL2 BASE_VBN, R : 
0c AC 50 01 0166 CMPL R) DESIRED. VBN : 
of 1A 0016A BGTRU 22$ F 
9 p7 016C DECL § POINTER_COUNT t 1340 
50 1¢ Ar C 0016 MOVZWL WINDOW BUFFER. RO + 1341 
58 50 C0 0017 ADDL2 RO, BASE_V : 
50 59 06 €5 0017 MULLS #6, POINTER RO + 1342 
1C =soAE 22. «AE 5 8 00179 MOVC RO, WINDOW BUPFERS6N WINDOW_BUFFER : 
146 AE 06 ¢ 0017F SUBL2 # NTER + 1343 
OOF 100183 17$:  BRW 24 : 1333 
$f DS 00186 18$: TSTL §PRIMARY_WINDOW + 1348 
22 12 00188 BNEQ 208 ; 
01 DD 0018A PUSHL #1 + 1351 
50 59 DO 0018C MOVL §POINTER_COUNT, RO : 
03 12 0018F BNEQ 19$ : 
50 01 D0 00191 MOVL #1, RO : 
50 06 C4 00194 19$:  MULL2 #6. RO + 1352 
30 AO 9F 00197 PUSHAB 48(RO) ; | 
00006 CF 02 FB 0019A CALLS ’ » ALLOCATE ; 
04 AE 50 DO 0019F MOVL * NEW WINDOW : 
6E 04 ‘ DO 001A3 MOVL NEU. UINDOW. PRIMARY _WINDOW : 1351 
9 12 OO1A7 BNEQ  20$7 : 1353 
0138 31 O01A9 BRW 29$ ; 
50 04 AE 20 C1 OO1AC 208:  ADDL3 $39 NEW_WINDOW, RO : 1360 
60 05 00181 TSTL (ROS : 
OA 13 00183 BEQL 21$ ; 
51 04 AE 20 C1 001B5 ADDL3 #32, NEW WINDOW, R1 > 1361 
50 61 DO O01BA MOVL (R1S, TEMP_L ; FA 
1F 11 001BD BRB 23$ F 
08 AE 50 8F 9A OO1BF 21$:  MOVZBL #80, WINDOW SIZE > 1364 
01 DD 001C4 PUSHL #1 : 1365 
51 Oc AE 06 ¢ 0166 MULL3. #6, WINDOW_SIZE, R1 ; 
30 Al SF 001CB PUSHAB 4BiR : | 
00006 CF 9 Fe gic CALLS #2, ALLOCATE : | 
d5 0010 TSTL TEP _LINK : 1366 
6 12 010 BNEQ 2 : 
01 AA 4 8 0107 BISB2 #4, 1(BASE) : 1369 
00EO 31 0010B 38: BRW ers : 137 
12 8 DA O1DE $:  MTPR #18 : 137 
51 4 AE C C1 O01E1 ADDL3 AE NEW WINDOW : 137 
C Ao 61 DO OiE6 MOVL §, 12TTEMP at ; 
51 04 AE 10 C1 OO1EA ADDL3 ie NEW WINDOW, R1 + 1379 
10 Ao 61 D0 O1EF MOVL (R15, MStlEne LINK) ; 
51 04 =A 14 C \f3 ADDL3 #20 WINDOW R1 ; 1380 | 
4 =A 61 80 1F MOVW (ais, OrTEnP LINK) : 
51 06 =A 18 C1 OO1FC ADDL3 #24 NEW NDOU : 1381 | 
18 OA 61 DO 00201 MOVL (R15, eeTEne “LINK) : 
| 


| 
| 
| 
| 


M 12 
16-Sep-1984 01:20: VAX-11 Bliss-32 V4.0-742 Page 12) 
1 730071382 93:98:38 DISKSVMSMASTER:CF11X.SRCJWITURN.B32; 1 ay 
0B C1 5 ADDL3 #11, NEW_WINDOW, R1 : 138 
ef $0 Oh MOVE. (R15, Aa eteMp LINK) : df 
\¢ C ADDL3 #28 NEW WINDOW, R1 + 1383. 
DO 0021 OVL. (R15, 28TTEMP_LINK) : 
0 C1 1 ADDL3 #32, NEW WINDOW, + 1388 
00 iC OVL TEMP _LINR (R1) : 
08 f 1F ADDL3 #11,~NEW WINDOW, RO + 1389) 
F 88 4 BISB #94, (ROY : 
16 C1 8 ADDL3 #22, NEW WINDOW, RO + 1390 
59 B80 D MOVW. POINTER COUNT, (RO) : 
. ADDL3 #44, NEQ_WINDOW, RO + 1391 
8 D9 MOVL. BASE_VBN> (RO) : 
6 ¢ MULL3 #6, POINTER COUNT, RO + 1392 FA 
0 ci 023¢ ADDL3 #48, NEW_WIRDOW, -(SP : FA 
0 28 00241 MOVC RO WINDOW BUFFER, a(SP)+ : FA 
20 C1 00246 ADDL3 # ; NEW WINDOW, RO + 1393 ; FA 
60 DO 00248 MOVL (ROS, NE@ WINDOW : FA 
AE CO 0024F ADDL2 WINDOW COONT, BASE_VBN + 1394 FA 
16 C1 00253 ADDL #22, NEW_WINDOW, RO 3 1395 FA 
60 B4 00258 CLRW = (ROS : FA 
eC C1 0025A ADDL3 #44, NEW_WINDOW, RO 3 1396 FA 
B DO 00 SF MOVL_ BASE_VBN7 : FA 
0B C1 026¢ ADDL3 #11, "NEW WINDOW, RO : 1397 FA 
8F 88 0026 BISB2 #64. (ROY : FA 
00 DA 00268 MTPR #0, #1 3 1398 FA 
AE 9E 0036 MOVAB WINDOW BUFFER, W_POINTER + 1399 FA 
59 D4 38 7 CLAL POINTER COUNT : 1400 FA 
AE D4 0027 CLRL  WINDOW_COUNT + 1401 FA 
56 DO 00278 246$: MOVL COUNT RO + 1408 FA 
QOOOFFFF F 50 D1 00278 CMPL RO, #65535 : FA 
05 1B 00282 EQU : FA 
50 FFFF 8F 3C 00284 MOVZWL #65535, RO 5 FA 
14 BE 50 80 00289 25$: MOVW RO, aw POINTER : FA 
51 14 BE 3C 0028D MOVZWL aW. POINTER, R1 : 1409 FA 
10 AE 51 ¢O 00291 DL¢ R1; WINDOW COUNT 5 FA 
51 14 AE 02 4 00295 ADDL #2, W_POINTER, : 1410 FA 
61 87 7E 90 9A MOVAQ CL )F, (R1) 3 FA 
51 14 AE 05 C1 0029D ADDL3 #5, W_POINTER, R1 > 1411 FA 
61 AO AA 90 002A2 MOVE. -96(BASE), (Ri) ; FA 
146 AE 06 CO 002A6 ADDL2 #6, W_POINTER : 1412 FA 
59 D6 OO2AA INCL P INTER COUNT > 141 FA 
57 OOOOFFF7 E/ 9E 00 AC MOVAB 65527(R7), LBN + 1414 FA 
56 0 C2 0028 SUBL2 RO, COUNT + 1415 FA 
95 1 0 B BNEQ 68 + 1416 FA 
FESA ; B BRW $ : FA 
FERC 31 0 BB 68: BRW 16$ ; id 
04 AE DS BE $:  TSTL NEW WINDOW + 1426 FA 
3A (1 00 C BNEQ  32$ ; FA 
04 AC 05 002C3 TSTL WINDOW > 1429 FA 
30 1 0 Cb BNEQ 31$ ; FA 
g1 DD 002C PUSHL #1 : 1432 FA 
50 9 D CA MOVL POINTER COUNT, RO F FA 
3 1 CD BNEQ  28$ F FA 
50 1D CF MOVL #1, RO ; FA 
50 4 ¢ be 28$ MULL2 #6, RO > 1433 
30 Ad 9F 002D PUSHAB 48(RO) ; 
00006 CF 02 FB 00208 CALLS #2, ALLOCATE ; 


50 


; Routine Size: 816 bytes, 


04 AE 
6E 
01 AA 
04 A 
6 
04 ‘ 
04 AE 
60 
04 AE 
60 
59 
04 AE 
1c AE 
12 
50 
50 


Routine Base: 


16-Sep-1984 01:20: VAX-11 Bliss-32 V4 
14- 071984 9:90:35 DISKSVMSMASTER:CF1 
50 D DD MOVL RO, NEW WINDOW 
04 At D E1 MOVL WaY.UINDOU, PRIMARY_WINDOW 
0 1 E3 BNEQ  30$ 
4 é E7 29%:  B1SB2 #4, 1(BASE) 
40 11 O002EB BRB 
B C1 OOCED 30$:  ADDL3 #11, NEW WINDOW, RO 
40 8F 88 OOdF BISB2 #64, (ROY 
5 11 002F BPB 
04 aC DO O02F 318: MOVL WINDOW, NEW_WINDOW 
08 DA 0 FD 32$: MTPR #8, #1 
16 C1 00 ADDL3 #22, NEW.WINDOW, RO 
59 80 0 0 MOVW, POINTER TOUNT, (RO) 
ec C1 00308 ADDL3 844, NEQ_WINDOW, RO 
B DO 00300 MOVL. BASE_VBN> (RO) 
06 C4 00310 MULL2 #6 
30 C1 0031 ADDL3 #48, NEW_WINDOW, R6 
59 28 00318 MOVC3 RO, WINDOW BUFFER, (R6) 
00 DA 00310 MTPR #0, #18 
04 AC DS 0320 TSTL = WINDOW 
04 12 003 BNEQ 
6E 00 00325 MOVL = PRIMARY_WINDOW, RO 
04 0328 RET 
01 DO 00329 338:  MOVL #1, RO 
04 0032C RET 
50 D4 0032D 348: CLRL RO 
04 0032F ET 


$LOCKEDC1$ + 0000 
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WITURN 91:98: 3¢ VAX-11 Bliss-32 V4,0-742 Page 14 
14-Sep-1984 12:50: DISKSVMSMASTER:CF11X.SRCJWITURN.B32; 1 (2) | 

; pet \¢ $ } GLOBAL ROUTINE MARK_INCOMPLETE ‘FIRST_BLOCK) : NOVALUE = | 

: rh 14 : 1 !44 

3; 4 y 14 B 

: of 1399 : } FUNCTIONAL DESCRIPTION: 

; 47 1296 . 4 This routine starts from the specified window and marks all 

3; 476 1465 1! successive windows in the List as being incomplete. The List 

; 475 1466 1! may start with the CURRENT_WINDOW; in which case the current 

; 47 1465 1! and all successive window Segments are marked as incomplete. | 

; 47 1098 1} lt may also start with the PRIMARY_FCB; in which case all the 

3 $8 ret } window segments associated with the file are marked incomplete. 

; 480 1o97 1 ! CALLING SEQUENCE: 

; 481 1470 1! MARK_INCOMPLETE (ARG1) 

3; 6 ; 1471 1! 

; 4 1o%6 1 ! INPUT PARAMETERS: 

$ tke 1o07 1 ARG1: address of the first block in the List (either a WCB or FCB) 

3 rt, 1475 1! IMPLICIT INPUTS: 

: 48 1676 1! none 

: 488 1477 1! 

; 489 pee 1 ! OUTPUT PARAMETERS: 

; 490 1479 1! none 

: 491 1480 1! 

; 49 1481 1 ! IMPLICIT OUTPUTS: 

; 49 1o8¢ . 4 none 

: 694 1483 1! 

; 495 1484 1 ! ROUTINE VALUE: 

; 496 1485 1! none 

; 497 1086 1! 

; 498 1487 1 ! SIDE EFFECTS: 

3; 499 1488 1! none 

; 500 1489 1! 

; 501 1490 1 !-- 

i 508 1491 1 

3 4 1236 BEGIN 

; 504 149 | 

; 4 1494 MAP 

; oe 1922 FIRST_BLOCK : REF BBLOCK; ! address of the first block 

; $08 1499 LOCAL 

; 509 1498 STARTP : REF BBLOCK, ! address of the queue head | 

5 31 133) POINTER : REF BBLOCK; ! address of the current block FAL 

: i 1501 ! Determine what type of block the first one is. If it is an FCB then it is FAL 

$ 3) 1308 ' necessary to traverse the WCB queue and mark all the WCB's associated with | FAL 

3 14 128 ' the FCB as incomplete. If it is a WCB then simply follow the Links marking FAL 

; ie 13 ; i the WCB's as incomplete until a zero Link is found, tat 

: 1 1 Og , FAL 

3; Si 150 SELECTONE .FIRST_BLOCKCWCBSB_TYPE] OF im 

: 519 1508 SET A 

; 520 1509 FAL 

3 1 1510 CDYNSC_WCB): BEGIN 

; § 1511 PJINTER = gf iRst BLOCK; 

3 1512 SET_IPL (IPL$_SYNCH); 


TUR 16-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 5 
=000 3ep-1986 9}: $8: 38 DISKSVMSMASTER:CF11X.SRCJWITURN.B32; " tse 
: $3 1313 b9 | 
; § 1515 4 ia “Pouwer WCBS TYPE] NEQ DYNSC_WCB 
: 1 1 4 Bug th (NOTUCBYCB, | F FATAL,” ‘Currupted WCB list"); 
: 1517 & POINTER aCe , con PLETE 
: } 18 $ POIN TER = .POINTER at eh “LINK; 
: §34 1520 UNTIL .POINTER EQL 0; | 
; ¢ 1521 SET IPL (0); | 
; 1 : RETORN; 
; 535 135% $s, | 
: 1525 CDYNSC_FCB): BEGIN 
; 1 $ POINTER = .FIRST BLOCK; | 
3 1 STARTP = POINTEREF CBSL. UWLFLJ; 
; 9 1 8 SET_IPL (IPL$_SYNCH); 
; 540 13 POINTER = .POTNTERCFCBSL_WLFLJ; 
: 41 13 9 UNTIL ~POINTER EQLA .STARTP | 
: 58 15 ¢ 4 BEGIN 
: 5446 1333 4 IF POINTERCUCBSB TYPE] NEQ DYNSC_WCB 
; 242 F : ‘ TWe HEN BUG. HECK (NOTWCB BvCB. FATAL, ‘Currupted WCB List"); 
; 59 1336 4 POINTER 2 cBSY COMPLETED = “wi: 
: 549 188 ; SET JPL (0); 
; 550 1539 RETORN 
a at *; | 
: 338 1306 COTHERWISE): BUG_CHECK (WCBFCBMNG, FATAL, ‘WCB/FCB correspondence broken"); | 
: 1848 spe 
: 557 1546 1 END; ! end of routine MARK_INCOMPLETE 
.EXTRN BUGS$_NOTWCBWCB 
0004 00000 .ENTRY MARK INCOMPLETE , Save R2 : 1456 
51 04 ac 00 00002 MOVL FIRST BLOCK, : 1507 
52 OA Al 9A Boos MOVZBL 10(R1J, R2 : 
12 52 91 OO00A CMPB Re. wtf > 1510 
1¢ 12 ou000 BNEQ : | 
50 31 D OF MOVL 1, POINTER + 1511 
12 8 A O012 MTPR # ; 1312 
1 OA AO 91 91 1$: CMPB JOCPOINTER) #18 : 151 
04 13 00019 BEQL ; 
Fer 018 BUGW > 1516 
9000+ 00010 WORD <BUGS_NOTWCBUCB!4> ; | 
08 A0 20 BA OOOTF 28 BICB2 : 1517 | 
5 20 AO DO 00 ; MOVL Cotpolutente TEDINTER ; 1318, 
C 12 000 BNEQ ; : 1520) 
8 1 9 BRB 6$ : 1621. 
07 91 B 3$ CMPB eR, #7 > 1525 | 
A i 3 BNEQ 7 : 
50 1 p00 000 MOVL R1, POINTER > 1526. 
| 
| 


vb4-000 ite See-198t 4:88:53 YUacddnGhlstedZch 10-362 avr rum.es2s%°% 6} 


10 Ad 9 ; MOVAB \$(POINTER), STARTP ; 15 7 
08 DA MTPR 11 
10 Ad D A MOVL TE{POINTER) POINTER : 13 
; D 4$ POINTER, STARTP : 1 
1 4 BEQL ; 
12 OA Ad 9 4 « (POINTER), #18 : 1533 
04 1 4 BEQL : 
Fer 49 BUGW + 1534 
0 Qe 48 <aycs NOTWCBUCB!4> : 
0B OA 20 BA 00040 5$ BICB2 T1(PO! + 1535 
4 6 D0 1 MOVL (POINTER), TODINTER : 1336 
F 4 BRB : 153 
12 DA 00 § 3 MTPR i. #18 : 1538 
04 0005 RET + 1525 
FEFF OO05A 7$ BUGW + 1542 
0000s 005¢ .WORD <BUGS_WCBFCBMNG! 4> : 
4 0005E RET + 1546 


; Routine Size: 95 bytes, Routine Base: S$LOCKEDC1$ + 0330 


Bd a Or Re PN BE eas See | 
13 
: 4=000 IEReOcT9BL 94:98:99 YMEcdABUsted2e¥4i0°242ayarumnos2c%0% aif 


3 Fes } rh ] GLOBAL ROUTINE MARK_COMPLETE (WINDOW) : NOVALUE = 

; 561 1 rk 1 tee 

; 6¢ 1550 1: | Val 
; 56 1551 1 | ROUTINE DESCRITION: 

; 564 1 : 1) 00¢ 
3 369 1 1 ! This routine is used to mark the specified window as complete. 00¢ 
: 66 } : | It must be executed in kernel mode. | Bot 
; 568 1 $ 1 ! CALLING SEQUENCE: 00¢ 
; = | 5 | MARK_COMPLETE (ARG1) 00¢ 
: 571 1 °6 1 ' INPUT PARAMETERS: tt 
; f 1360 ! ARG1: address of the window List to mark Bet 
: 574 1268 1 ! IMPLICIT INPUTS: 00¢ 
: 575 1563 1! none 00¢ 
; 576 1564 1! 00¢ 
; 577 1565 1 ! OUTPUT PARAMETERS: 00¢ 
; 578 1566 1! none 00¢ 
3; 579 1567 1! 00¢ 
; 580 1568 1°! IMPLICIT OUTPUTS: 00¢ 
; 581 1569 1! none 00¢ 
: 282 1570 1! 00¢ 
; 38 1571 1 ! ROUTINE VALUE: 00¢ 
; 584 1378 1: none 00¢ 
; 4585 1573 1! 00¢ 
: 586 1574 1 ! SIDE EFFECTS: 00¢ 
; 587 1575 1! none 00¢ 
; 588 1576 1! 00¢ 
; 589 1577 1 !-- 00¢ 
; 590 1578 1 00¢ 
3; 591 1579 BEGIN 00¢ 
3 298 1580 00¢ 
; 59 1581 MAP 00¢ 
3 ope 1286 WINDOW : REF BBLOCK; ' address of the window to mark aoe 
; 596 1584 2 Loca 00¢ 
; aU 1389 NEXT_SEGMENT : REF BBLOCK; ! address of the next segment si 
; 599 1587 2 NEXT_SEGMENT = .WINDOW; 00¢ 
; 600 1588 00¢ 
; 601 1589 SET_IPL (IPL$_SYNCH); 00¢ 
: 60¢ 1590 Boe 
; 60 1591 DO 

3; 604 1398 BEGIN 00( 
; 605 159 NEXT_SEGMENTCWCBSV_COMPLETE] = 1; ' mark as complete 00( 
3 606 1594 NEXT~SEGMENT = .NERT_SEGMENTCWCBS$L_LINK); 

: 607 1595 EN 

; 608 1396 UNTIL .NEXT_SEGMENT EQi 0; 

3; 609 159 00( 
: 610 1598 2 SET_IPL (0); 00¢ 
; 611 1599 4 
; olg 1600 

; 61 1601 

; 614 1602 END; ! end of routine MARK_COMPLETE 


| 
| 
| 
RETURN; | 
| 
| 
| 


ee ee 
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$-700° 198% 01:90:38 VAX-11 Bliss-32 V4.0-742 ge 18 
4-Sep-1984 12:350:5 DISKSVMSMASTER:CF11X.SRCJWITURN.B32; ? (3) | 


0000 9000 .ENTRY MARK_COMPLETE, Save nothing : 1547 
04 AC DO 0000 MOVL WINDOW, NEXT_SEGMENT + 1587 
08 DA 0006 MTPR #8, # + 1589 

20 88 00009 1$: BISB2 #32. 11(NEXT_ SEGMENT) + 1593 

20 AO 00 000d MOVL $36 NEXT_SEGMENT), NEXT_SEGMENT + 1594 
F6 12 00011 BNE + 1596 

00 DA 00013 MTPR #0, #18 : 1598 

04 00016 RET + 1602 


; Routine Size: 23 bytes, Routine Base: S$LOCKEDC1$ + 038F 


; 615 1603 
; 616 1604 1€ 
; 617 1605 0 EL UDO 


Name Bytes Attributes 
SLOCKEDC1$ 934 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


| 

| 

PSECT SUMMARY 
Library Statistics 
| 

| 


‘eee eho ere Sele tak ee ee Syabe(s qonewe== Pages Processing 

5 File Total ioaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBJL18.L32;1 18619 41 0 1000 00:01.9 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:W1TURN/OBJ=OBJ$:WITURN MSRC$:W1 TURN/UPDATE=(ENH$:W1 TURN) 

3; Size: 934 code + 0 data bytes 

3; Run “Time 6°35. ‘ | 
; Blessed tee: 1:07. 

3; Lines/CPU Min: $332 | 
3; Lexemes/CPU-Min: 35776 

; Memory Used: 359 pages 
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